Function: (setf seq-elt)

(setf\ seq-elt) is a byte-compiled function defined in transient.el.

Signature

(\(setf\ seq-elt\) ARG0 ARG &rest ARGS)

Implementations

(store (sequence cons) n) in `seq-25.el'.

Undocumented

(store (sequence array) n) in `seq-25.el'.

Undocumented

Source Code

;; Defined in ~/.emacs.d/elpa/transient-20260414.1009/transient.el
;; Could not find source code, showing raw function object.
#[642 "\304\203�\305!\202\f�\306\303\307\"\2067�\310\300\311\301\302\312\313\203'�\305\f!\202(�\306!\314\315!\"%\316#\210\211\262
\266\202$\207"
      [#s(cl--generic \(setf\ seq-elt\)
		      ((2 #s(cl--generic-generalizer cl--generic-t-generalizer 0
						     #[385 "\300\207"
							   [nil]
							   3 "\n\n(fn NAME &rest _)"]
						     #[385 "\300\207"
							   [(t)]
							   3 "\n\n(fn TAG &rest _)"]))
		       (1 #s(cl--generic-generalizer cl--generic-typeof-generalizer 10
						     #[385 "\300\301D\302BBB\207"
							   [if type-of
							       ('null)]
							   6 "\n\n(fn NAME &rest _)"]
						     #[385 "
9\205�
\236\207"
							   [cl--typeof-types]
							   4 "\n\n(fn TAG &rest _)"])
			  #s(cl--generic-generalizer cl--generic-t-generalizer 0
						     #[385 "\300\207"
							   [nil]
							   3 "\n\n(fn NAME &rest _)"]
						     #[385 "\300\207"
							   [(t)]
							   3 "\n\n(fn TAG &rest _)"]))
		       (0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
						     #[385 "\300\207"
							   [nil]
							   3 "\n\n(fn NAME &rest _)"]
						     #[385 "\300\207"
							   [(t)]
							   3 "\n\n(fn TAG &rest _)"])))
		      (#s(cl--generic-method
			  (t cons t)
			  nil nil
			  #[771 "\211\233\240\207"
				[]
				5 "\n\n(fn STORE SEQUENCE N)"])
			 #s(cl--generic-method
			    (t array t)
			    nil nil
			    #[771 "

I\207"
				  []
				  6 "\n\n(fn STORE SEQUENCE N)"]))
		      nil)
	 ((0 #s(cl--generic-generalizer cl--generic-t-generalizer 0
					#[385 "\300\207"
					      [nil]
					      3 "\n\n(fn NAME &rest _)"]
					#[385 "\300\207"
					      [(t)]
					      3 "\n\n(fn TAG &rest _)"])))
	 (#s(cl--generic-method
	     (t cons t)
	     nil nil
	     #[771 "\211\233\240\207"
		   []
		   5 "\n\n(fn STORE SEQUENCE N)"])
	    #s(cl--generic-method
	       (t array t)
	       nil nil
	       #[771 "

I\207"
		     []
		     6 "\n\n(fn STORE SEQUENCE N)"]))
	 #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8125 data
		       ())
	 apply type-of null gethash cl--generic-cache-miss 1 append
	 #[385 "
9\205�
\236\207"
	       [cl--typeof-types]
	       4 "\n\n(fn TAG &rest _)"]
	 #[385 "\300\207"
	       [(t)]
	       3 "\n\n(fn TAG &rest _)"]
	 nil puthash]
      15 "\n\n(fn ARG0 ARG &rest ARGS)"]